﻿Public Class CQuyenTheoBoPhanDTO

    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property


    Private m_iMaBoPhan As Integer
    Public Property MaBoPhan() As Integer
        Get
            Return m_iMaBoPhan
        End Get
        Set(ByVal value As Integer)
            m_iMaBoPhan = value
        End Set
    End Property

    Private m_isRibbonBarTheThuVien As Boolean
    Public Property RibbonBarTheThuVien() As Boolean
        Get
            Return m_isRibbonBarTheThuVien
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarTheThuVien = value
        End Set
    End Property

    Private m_isRibbonBarQuanLySach As Boolean
    Public Property RibbonBarQuanLySach() As Boolean
        Get
            Return m_isRibbonBarQuanLySach
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarQuanLySach = value
        End Set
    End Property

    Private m_isRibbonBarThuTienPhat As Boolean
    Public Property RibbonBarThuTienPhat() As Boolean
        Get
            Return m_isRibbonBarThuTienPhat
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarThuTienPhat = value
        End Set
    End Property

    Private m_isRibbonBarMuonTraSach As Boolean
    Public Property RibbonBarMuonTraSach() As Boolean
        Get
            Return m_isRibbonBarMuonTraSach
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarMuonTraSach = value
        End Set
    End Property


    Private m_isRibbonBarTimKiemTheoSach As Boolean
    Public Property RibbonBarTimKiemTheoSach() As Boolean
        Get
            Return m_isRibbonBarTimKiemTheoSach
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarTimKiemTheoSach = value
        End Set
    End Property


    Private m_isRibbonBarTimKiemTheoDocGia As Boolean
    Public Property RibbonBarTimKiemTheoDocGia() As Boolean
        Get
            Return m_isRibbonBarTimKiemTheoDocGia
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonBarTimKiemTheoDocGia = value
        End Set
    End Property


    Private m_isRibbonButtonBaoCaoMuonTheoTheLoai As Boolean
    Public Property RibbonButtonBaoCaoMuonTheoTheLoai() As Boolean
        Get
            Return m_isRibbonButtonBaoCaoMuonTheoTheLoai
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonButtonBaoCaoMuonTheoTheLoai = value
        End Set
    End Property


    Private m_isRibbonButtonBaoCaoSachTraTre As Boolean
    Public Property RibbonButtonBaoCaoSachTraTre() As Boolean
        Get
            Return m_isRibbonButtonBaoCaoSachTraTre
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonButtonBaoCaoSachTraTre = value
        End Set
    End Property


    Private m_isRibbonButtonBaoCaoDocGiaNoTienPhat As Boolean
    Public Property RibbonButtonBaoCaoDocGiaNoTienPhat() As Boolean
        Get
            Return m_isRibbonButtonBaoCaoDocGiaNoTienPhat
        End Get
        Set(ByVal value As Boolean)
            m_isRibbonButtonBaoCaoDocGiaNoTienPhat = value
        End Set
    End Property



    Public Sub New()

    End Sub

    Public Sub New(ByVal reader As IDataReader)
        m_iMa = reader("Ma")
        m_iMaBoPhan = reader("MaBoPhan")
        m_isRibbonBarMuonTraSach = reader("RibbonBarMuonTraSach")
        m_isRibbonBarQuanLySach = reader("RibbonBarQuanLySach")
        m_isRibbonBarTheThuVien = reader("RibbonBarTheThuVien")
        m_isRibbonBarThuTienPhat = reader("RibbonBarThuTienPhat")
        m_isRibbonBarTimKiemTheoSach = reader("RibbonBarTimKiemTheoSach")
        m_isRibbonBarTimKiemTheoDocGia = reader("RibbonBarTimKiemTheoDocGia")
        m_isRibbonButtonBaoCaoDocGiaNoTienPhat = reader("RibbonButtonBaoCaoDocGiaNoTienPhat")
        m_isRibbonButtonBaoCaoMuonTheoTheLoai = reader("RibbonButtonBaoCaoMuonTheoTheLoai")
        m_isRibbonButtonBaoCaoSachTraTre = reader("RibbonButtonBaoCaoSachTraTre")
    End Sub

End Class
